home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  548b  |  18 lines
  1. 10 print"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  2. 20 gosub 50000
  3. 30 print"";be$
  4. 40 goto20
  5. 50000 ti$="000000":be$="":poke198,0:poke211,0:poke214,18:sys58732:print"> [164]";
  6. 50010 getx$:ifpeek(203)=1then50110
  7. 50020 ifti$>"000030"then50110
  8. 50030 ifx$=""then50010
  9. 50040 iflen(be$)=0andasc(x$)=20then50010
  10. 50050 i=asc(x$):ifi<65ori>90thenifi<>20andi<>32andi<>34then50010
  11. 50060 be$=be$+x$
  12. 50070 printchr$(20);x$;"[164]";
  13. 50080 ifi=20thenbe$=left$(be$,len(be$)-2):goto50010
  14. 50090 ti$="000000":iflen(be$)>76thenfori=1to80:printchr$(20);:next:goto50000
  15. 50100 goto50010
  16. 50110 print:print"[145]                                        ";
  17. 50120 print"                                        ":return
  18.